Disclaimer:
- This is a personel project,
- I am not a employee of the state of Ohio.
- I am not employed in either the medical or data sceince fields.
Ohio Totals for Cases,Deaths by Date (Previous 30 Days)
STATESDAILY <- dbGetQuery(db, " SELECT * FROM STATESDAILY;")
COUNTYDAILY <- dbGetQuery(db, "SELECT * FROM COUNTYDAILY;")
gg1 <- STATESDAILY %>% filter(date >= Sys.Date() -30) %>% ggplot() +
geom_col(aes(x=date,y=new_cases,fill=new_cases)) +
labs(title="Ohio Cases by Date") +
theme(axis.text.x = element_text(angle = 45))
#
# geom_rect(data=STATESDAILY,aes(xmin=max(date) -10,xmax=max(date) -15,ymin=min(new_cases),ymax=max(new_cases)), alpha= 0.01,fill="grey")
## Warning: Removed 49 rows containing missing values (position_stack).
Ohio Accumulated Totals for Cases,Deaths by Date and County